home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 2021copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.2 KB  |  37 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "2021"
  4. Company = "Sega"
  5. title = "Space Harrier"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Sega 32X"
  13. Title Description = "In the land of the Dragons, swarming with incredible monsters, laser blast
  14. your way by giant snakes and robotic monsters. Blast through rings of fire, blazing dragons,
  15. dreaded orbs and mutant space-heads!"
  16. -----------------------------------
  17. dline = ""
  18. counter = 0
  19. repeat while dline <> title number
  20. counter = counter + 1
  21. dline = GetWord(1, GetLine(titl,counter))
  22. test(dline = title number, LineInTitle = counter)
  23. end repeat
  24. starttitle = LineInTitle
  25. num of titles shown = 6
  26. endtitle = starttitle + num of titles shown - 1
  27. titles = ""
  28. title highlight = ""
  29. repeat with counter = starttitle to endtitle
  30. nextline = GetLine(titl, counter)
  31. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  32. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  33. CharCount(nextline)) ^ Return, title highlight ^ Return)
  34. end repeat
  35. dpage = CurrentPageID
  36. newtitle = FALSE
  37. end if